home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byte0287.arc / LISTING3 < prev    next >
Encoding:
Text File  |  1986-05-20  |  744 b   |  24 lines
  1. 10 OPEN "I",#1,"CDATA" :REM Compressed data.
  2. 20 INPUT#1,N,L    :REM Get count, sampling inverval.
  3. 30 K=INT(N/L):DIM B(K)
  4. 40 FOR I=0 TO K    :REM Get compressed data.
  5. 50 INPUT#1,B(I)
  6. 60 NEXT I
  7. 70 CLOSE
  8. 80 OPEN "O",#1,"RDATA" :REM Create reconstructed data.
  9. 90 PRINT#1,N        :REM Write data count.
  10. 100 W=3.141593/L
  11. 110 FOR I=0 TO N    :REM Reconstruction
  12. 120 IF I MOD L = 0 GOTO 190 :REM Branch at sampled values.
  13. 130 G=0
  14. 140 FOR J=0 TO K    :REM The Nyquist sum.
  15. 150 M=W*(I-J*L)
  16. 160 G=G+B(J)*SIN(M)/M
  17. 170 NEXT J
  18. 180 GOTO 200    :REM Sum done; store this value.
  19. 190 G=B(I/L)
  20. 200 PRINT#1,G    :REM Write reconstructed value to file.
  21. 210 NEXT I    :REM Go reconstruct next value.
  22. 220 CLOSE    :REM Done
  23. 230 PRINT "The reconstructed data file is RDATA"
  24.